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المرجع المبسط في 


الإرمجہ كائنيہ التوجه 


يضم الكتاب المواضيع التاليت : 


الفنات كءوها€. 

.S]٣u Cu ۲٤٥۴ التراڪیب‎ 

مبادئ الېرمجہ ڪائني. التو جه ئاp .O©OP C0۸ Ce‏ 

وفيما بين السطور بعض الأمثلت وبعض النقاط المبهمت للكثير من المطورين. 
بالتوفيق للجميع بإذن الله تعالى . وانتظروا المرجع الشامل للبرمجة كائنيت 
التوجه في القريب إن شاء اللّه. 
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۳ 
:ر 

مقدمتة الكتاب ۵ 
تعريف بالمؤلف ۷ 
أولا: الفنات والتراكحيب ۸ 
الفنات ۸ 

۱۸ التراكيب‎ ٠ 
۳ المشيدات والمهدمات‎ ٠ 

٤ لمحات حول القئات والتراكیب‎ ٠ 
ثانيا: مبادئ البرمج كائنيم التوجه ا‎ 
۳۷ Encapsulati0ټ0¬‎ فڀلخغتîll‎ 
۹ Inheritance ëثڎlرولl‎ 
8 Inheritance Hierarchies جردتقll‎ يروتلl‎ 

۳ Overriding التوريث وإعادة القيادة‎ ٠ 

٤ S؟S؟ةaل0wسs إعادة القيادة والظل‎ ٠ 

۵ Interface Inheritance ٽاlھجlوll‎ mثارو‎ 

8 Access Modifiers iaحliÃkl‎ تlnلlڪۍكJا‎ 

° تعد lلوlجھlاٽ ٠ Polymorphism‏ 
ه٠‏ تعدد أو إعادة التعريف Overloadi 1g‏ ا 

خاتمہٰ الكتاب ٤‏ 
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کے م 
مه کم 


بسم الله الذي لا يضر مع اسمه شيء في الأرض ولا في السماء وهو السميع العليم 


بسم الله الرحمن الرحيم 
EEEEEEEEEEEEEHEE‏ 


في البدايت آشڪر من لا يشڪر ولا ييبحمد على مڪروه سواه جلا آن وفقني جل 
في علاه لما آنا عليه الآن . فالحمد لله حتى يرضى والحمد له كل الحمد بعد الرضا. 
الحمد لله أن وفقتي لإعداد هذا اللكتاب المتواضع. 
بدايت آشكر كذلك إخواني في الله . والذين قد ساعدوني في تنقيح هذا 
الكتاب فنيا حتى تصح المعلومات والأمثلم الواردة فيه : 
۰ م/أحمد جمال خليفت. 
٠‏ أ/محمد أسعد. 
٠ه‏ أ/محمد أسامت جنديت. 
ولحسن حظك أخي القارئ أن من قاموا بالتنقيح وتصحيح الكتاب هم أساتذة 
لي وعلى قدر من العلم ييحسدون عليه - زادهم الله علما ووفقهم الله لما يحبه ويرضاه -› 
ولقد وفقني الله تعالى إلى الحديث عن البرمجة كائنية التوجه أومايسمى بال 
Object-Oriented Programming‏ . وكذلك الفنات والتراکب وكان 
بودي لو آنني أستطرد وأزيد تفصيلا في الحديث في هذا الصدد وكذلك كان بودي أن 
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آتحدث بالتفصيل عن |gNamespaCeS_—Ûوىۍڪiلكd‏ افئ—_Generics‏ وال 
Classes‏ ectinااC‏ و...الخ. وللكن كان الوقت عاملا في غير صالحي . وللكڪن 
بحمد الله فإني أعد الكتاب كمرجع مبسط للدارسين ولمن لا يعرفون الكثير عن 
البرمجت كائنية التوجه والتي تمثل المنطق الخاص بالمبرمح أثناء تطويره للتطبيقات 
ولاغنى لأي مبرمج عن مبادئ ومفاهيم ال ©0 . وبإذن الله تعالى سيتم إصدارمرجع 
موسع عما قريب بإذن الله جل في علاه حين أنتهي من مشاغلي ... وللكن هناك بعحض 
النقاط التي يجب أن نذكرها قبل البدء : 


visual Studio .NET zmئيب ستكون الأمثلت المتاحح في هذا الكتاب مطورة تحت‎ ٠ 
.2008 

سنستخدملغ7 2008 ۴۲ .N‏ ›أsةB‏ |uaءا/۷‏ آثناء تطويرالأمثلت. 

٠‏ آمل آن يكون لدى القارئ خلفي آو دراي مسبقة بلغت ۴1 .N‏ ›أكة6 اةنكا/ آوبأي لغ 
أخرى تدعم البرمجة كائنية التوجه . وكذلك تقنيت ۴١‏ . بشكل عام 

٠‏ سعرالكتاب ..: أن تدعو للمسلمين كاف بالرحمم والمغخفرة ونيل رضا الله - جل في علاه- 
وكذلك شفاعة الني المصطفى صلى الله عليه وسلم. 

Visual Basic .NE1 2008 قد استعنت في إاعدادي لهذا اللڪتاب البسيط بڪتاب‎ ٠ 
وقد قمت بترجمت الكثير منه وصياغته بأسلوب مبسط‎ . ۸04 S۴18 ٣١5 لكاتبه‎ 
وكذلك اقتباس بعض الأكواد والأمثلة التوضيحيت.‎ 


بالتوفيق للجميع ‏ وشكرا لإخواني الذين ساعدوني في إخراج الكتاب بهذه الصورة 


مع تحياتي ... المؤلف 
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# أحمد محمد عبد العظيم نجم ر أحمد نجم) 

# جمهوريح مصر العربية / محافظة المنيا 

AhmedNegm@ WindowsLive.C01¬ : البريد الإلكتروني‎ 8 

002 011 977 72 44 or 002 012 944 79 49 : الموبایل‎ 8 

# مكتبت المواضيع المميزة : 

تحتوي مكتبم مواضيعي المميزة على بحعض الدروس والمقالات التي فمت بنشرها على 

الشبكة في منتديات أكاديمية فيجوال بيسك للعرب وكذلك منتديات فيجوال بيسك 
للعرب. 


http://www.vba4a.com/vb/showthread.php?t=429 


أسأل الله تعالى أن يجعل هذا عملا صالحا وأن يكون لوجهه تعالى خالصا ولا يشرلك فيه أحد سواه 
جل في علاه . وآن يكون هذا العمل ذخرا لي ولإخواني يوم نلقى الله تعالى ‏ وأسأل الله أن يخفرلنا 
ذنوبنا وإسرافنا في أمرنا في هذه الأيام المبارك.. 
آمین 
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we we 7‏ 
اولاا: الفنات والتراكب 

¢» «e 


Classes and Structures 


BEEBE 


دعونا نبد أ سريعا بدون مقدمات ... فهنا نحن بصدد الحديث عن الفنات والتراكيب . ومن ثم 
نبدأ ولا بالحديث عن رالمتغير 1٠‏ ط2 1اه وهو عادة يحمل قيمت مفردة وقد تكون هذه 
القيمت عدديت طن أو نصيت ۲119ا ؟.. الخ . أو قد يكون كمرجع أو كمؤشر لنقط. 
تشير إلى كائن عام أو صورة ... الخ. 

سنتطرق سويا إلى ماهي الفنات والتراكيب وكذلك كيفيم التصريح عن كل منهما 
وكيف ننشأ نسخ. ء-٥ 11١521‏ منهما أيضا. كما سنوضح كذ لك الفرق بين الفئب ئئة°1 
والتركيب ١۲نا‏ اء ناإاS‏ . وسنحاول جاهدين تقديم بعحض النصائح الخاصة بوقت أو حالي 
استخدام کل مما ء تایم معي 


$¢ Classes الفنات‎ #8 


ڪي نتعامل مع الفنات فيجب آن يكون لڪل فة أحداثها ۴۷۵۲۸5 وخصائصها 
Proper‏ ووساتلها ر طرقها ) .116٣0۵5‏ فلو تناولنا عناصر الفنة الثلاث المذأكورين فيماسبق 
فسيكون الآتي : 
٠‏ الخاصية ر ٠+٣‏ ط١ط‏ ... الخاصية هي إحدى الطرق التي عن طريقها يتم تخزين نوع أو 
شكل معين من آنواع البيانات . ومن الممكن أن تكون هذه القيمہ بسيط كاسم أو رقم آو تاريخ 


> ومن الممكن آن تكون معقدة نسبیا كالمصفوفات ۸۲۲۵۷١‏ آو تكون الخاصية أساسا عبارة عن 
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كائن مستقل له خصائصه وأحداثه وطرقه أو وظائفه. للعلم هناك خصائص من النوع 
ر Read/Write‏ › وهناك نوع آخر وهو ر 1¥ ۸830-0 ) . وكذلك النوع ر ۷/٣-01۷‏ ) ومثال ذلك 
خصائص كتابت كلمات المرور 01۲۵5 .۴255W‏ 

Function OF رءlرجإ الطريقة أوالوسيلى ر ١هطاعM ... تمثل الطريقة دالm أو‎ ٠ 
وتعتبر الطريقة أو الوظيفة كجزء من الكود داخل الفنت ه1٤ مما‎ . Subroutine 
يضفي عليها السمة الأساسية للفنات وكذلك تواجد الطرق داخل الفنات لتنفيذ مجموع7ّمن‎ 
سطور الكود ضمنيا وتنفيذ وظيفة أو مهم معينة ظاهريا.‎ 

٠‏ الحدث ر E۷٠١٤‏ ... الحدث بكل بساطة هو عبارة عن إخطار حركي. يعني هذا أن الحدث 
يستدعي قطع أو إجراءات معينة من الكود داخل ال ٤125s‏ كي يخبرها أن بعض الأحداث أو 
الشروط داخل الفن”ّ قد وقعت بالفعل. 


أعلم بالطبع آني لم أضف لديك جديدا بل بكل تأكيد قد شوشت عقلك وذهبت ببعض 
المفاهيم لديك إلى حيث لا تدري . ولكن أصغ لي مرة أخيرة وتخيل معي هذا المثال البسيط. بفرض 
مثلا آنه لدينا فن أو 5 0125 بالمسمی ر ط٥ت‏ ). فهيا بنا نحلل ما جاء بها كما يلي : 


ولا الخواص )ر Properties‏ : 


Description‏ ر وصف أو تعريف الوظيفة) - وهي خاصية تحتوي على وصف 
نصي للوظيفت. 

° ع (Work Hou‏ ساعات العمل ) - وهي خاصيم تحتوي على عدد ساعات العمل لتلك 
الوظيقة 

Cus tome:‏ رالمتقدم للوظيف. ) - وهنا ستختلف نوع الخاصيہ فهنا ستقوم بتحعربف 
الخاصیہ ۲٤٣٥ا ٤u‏ طہت على آنها عبارة عن كائن مشتق من فن ٩11:‏ آخربالاسم 
custo »eإ rنفلاو customer‏ تحتوي على خصائص وأحداث وطرق ووظائف 


ومتغبرات وكذلك دوال واجراءات. 
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Estima tedHouırs‏ ر الساعاتالمقدرة - عدد الساعات المبدئيتالمقدرة لأداء هذه 
الوظيفت. 


0 


ثانيا ‏ الطرق أو الوسائل ر ئلفە طخ Me‏ : 


تم وذككه راعتماد الوظيفت - هذا الإجراء يقوم بتنفيذ اعتماد الوظيفة من الموظف 


الملختص بالتعيين إلى العميل المتقدم للوظيفة. 
* 811130( كشف حساب) - يقوم مثلا هذا الإجراء بطباعت كشف حساب على سبيل 
المثال للشخص المتقدم للوظيفت. 


خtedCoS Estima‏ ر التكلفم المقدرق - دال تقوم بالرجوع بالتكلفم المقدرة بناءا 
على ما ورد في عقد خدمات العميل أوالمتقدم للوظيفت وكذلك الساعات المقدرة التي وردت 
بالخصاتصضص Estimate dHoUrs ll‏ . 


ثالثا ‏ الأحداث ر sخ Even‏ ): 


ea ted‏ ر إنشاء الوظيفت - يوفرهذاالحدث إمكانية التحكم بالفنة أو التطبيق 
عند إنشاء الوظيفة عن طريق كتابح ما يشاء في هذا الحدث. 
* 4 عمو :كك رالتعيين ) - يتم تنفيذ ما ورد في هذا الحدث عند موافقة الموظف على 
العميل المتقدم للوظيفة وإعطاء أمر التعيين. 
Reject °‏ ر الرفض أو ترك المهمت) - يتم تنفيذ هذا الحدث عند رفض إكمال المهمتّمن 
قبل الموظف . ربما حدث هذا لعدم اكتمال أوراق العميل أو ريما لظروف طارئة للموظف أو 
عدم تواجد الخبرة الكافيم للقيام بهذ ه المهمن. 
an ce1ed‏ ر إلغاء الأمر - وهذا مثلا يتم من قبل العميل قبل إصدار آمر التعيين. 
كانت هذه نظرة سريع. على فنة أو ه1٥‏ تحتوي على أحداث وخصاتص ودوال 
واجراءات وهذافقط على سبيل المثال. نأتي بعد ذلك لملحوظة مهم وهي مجمل ماسبق فتعريف 
الفنة هي عبارة عن مصد ر أو كيان أو شخصيت برمجيت مستقلة تغلف أو تحتوي على مجموعت 
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من التعليمات البرمجية على اختلاف أنواعها ر خصائص أو أحداث أو دوال وإجراءات). وللكن كن 
على علم بأنه ليس من الضروري وجود كل المكونات الثلاثة السابقح داخل كل فن . وللڪن 
نحن هنا بصدد الحديث عن الأأحوال القياسيت لملكونات الفئات كعكءها€. 

انظرمعي إلى الصيغہ القياسيہ لكتابہ الفنات : 


lEtlELOUES LISE OSLCLALN lACCSSSLSLIEY] SAACOWMSN lAMAEEI lAMCEl _ 
CIASS. AAMe ll (OE EOS LISE) | 

IMEI: QALERE CLASSI 

[Implements interface] 

SEA E OMER ES 
e CESS 


** ملحوظة : العبارات بين الأقواس "[" وكذلك "]" هي اختيارية الكتابة ** 
الشيء الوحيد الذي يجب كتابته أو تواجده عند التصريح عن الفئات هو كلمة" ٥1255‏ "التي 
تسبق اسم الفنت والمحدد باللون الأزرق في الكود السابق في السطر الثاني . وكذلك أيضا العبارة" 
5ع ١"4‏ "المحدد كذلك باللون الأزرق في السطر الأخير من الكود السابق. كل شيء عدا ما 
سبق يعتبراختياري . حتى إنك على سبيل المثال بمكنك التصريح عن فن بدون اللجوء 
للاختيارات السابقة كما يلي : 


Class clsPerson 
Statements 
ERG Class 


حيث ٠۲0١‏ :1ء هواسم الفنة الملصرح عنها. ولو تطرقنا سريعا للتصريحات أو التعبيرات 
الاختيارية أثناء التصريح عن الفنات فسنقول ما يلي : 

: Attribute_List 

هي عبارة عن قائمت خاصة من الصفات التي تمنح للفنات. واستخدامك ل ء٤‏ اط 1إا اة يعطي 
سمت خاصة للفنت وذلك لإعطاء ال ١6|أ K0‏ معلومات أكثر تفصيلا عن الفنة وكذلك وقت 
التشغيل. هذه الصفات أو السمات أوما يسمى بال ط1إ ااه متخصصة نوعاما. فهب مثلا 
آنك تصنع أحد التطبيقات ولابد أن يدعم هذا التطبيق السحب والإفلات ۲29-١0-0 ۲0۲٧‏ وذلك 
لأخذ نسخ تمن فنة في تطبيق إلى تطبيق آخر. فهنا يجب عليك وصف الفنة على أنها 
ِا serial 1 zab‏ ڪماهوموضح كما يلي : 
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OSE IALI ZALE (JS _ 
Class clsPerson 


BUSI THE ATESIENamMe AS SEEING 
EUDITEe KastName AS SEEING 


End Class 
لن آتحدث أكثر من ذلك في هذه النقطح . لأني من الأساس لا آعيها كاملا . ولكن سأتركك مع‎ 
: بعض الروابط المفيدة في هذا الصدد‎ 


http://msdn.microsoft.com/en-us/library/system.serializableattribute.aspx 


: Partial 
نأبVisuaا‎ Basic .N۴۲ العبارة أوالكلمتم الدليلية 121٤ا إةم تقوم بإعلامال‎ 
التصريح التالي عبارة عن تعريف جزء من الفنة » في الكود التالي ستجد بأن الفنت‎ 

: تم كسرها أو تعريفها أو التصريح عنها على جزآين كما يلي‎ c1sPers1 


FPartlal ClaSS CISEeESON 


BUDE HES EName AS SEIN 
EUDINE Las Eame AS SEF 


End Class 


NETTLETON UTI TLIT TUTE TECTITTT ET 


BarElal ClaSS CISPeESON 


Public Age As Integer 
EuONHE EMAN AS SEBIR 


End Class 


التطبيق أو البرنامج يمكن أن يحوي بداخله أكثر من قطعتَ كود أو أكشثرمن تعريف للفنت 
c15 Ps1‏ . وكذلك يمكن وجود قطع االكود هذه في أكثر من وحدة نمطي ع اله › 
ويقوم‌ال ۲ .٤‏ »اوت6 اهاءآلا بتجميع أو دمج هذه القطع سويا لتكوين الفنة التي ذريد. 

تتساءل بالطبع : ما الفائدة من هذا ؟... واحدة من الفوائد الأساسيت هي تجميع وحدات اللكود 
المرتبطة مع هذه الفئة أو المتعلق بها في حزمت مفردة. وللكن نصيحة لا تقم بتقسيم الفنت ما دمت 
لا تملك سببا وجيها لتقسيمها . فهب مثلا لو أنك سمحت لعدد من المطورين بالعمل على وحدات 
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مجزئت من الفنة كل على حده في نفس التوقيت . أو بعض من الوحدات الأخرى لا تريد لأحد 
الاطلاع عليها. 

يجب تواجد الكلمة الدليليت 121 22۲۲ في قطعح واحدة من الفنة المجزآة على الأقل . وتواجد 
الكلمت في القطع الأخرى اختياري آي أن عدم وجوده لن يؤثر على تجميع الفنة. إلى هنا يكون 
قد اتضح أن استخدام الكلمة الدليليت في جميع القطع المجزآة من الفنتَ يؤكد بأن تجزئة الفنت 
أو كسرها أو التصريح عنها في أكثر من موضع يقلل من التعارض والتشويش أثناء التطوير فيها. 


Accessibility °‏ : 
نتحدث في هذه النقطة عن قابلية الوصول أو ما يسمى بال را1 ss1611ء>ءءA.‏ وهنا 
آنت بصدد استخدام معرف أو كلم دليليت من الآتي : 
Public‏ : 
تشير هذه اللكلمم المفتا حي إلى قابليت الوصول للفنتً من خلال الكود سواء 
من داخل الفنة ذاتها أو خارجها. فهذا مكل الغالبية العظمى من الوصول للفن”َ 
وكذلك أي كود يستطيعح التعامل مع النسخة المأ خوذة من الفنة. اعلم انه ييمكنك 
فقط استخدام الكلمة المفتا حي ٥۲٥۲٠٥١۹‏ إذا ما احتوت الفنت على فن آخرى 
بداخلها. تابح الكود التالي : 
lL LE CLASS CISEOESON‏ 


EUS E EES ENamMe AS SEE IMG 
BUbBIie KastName As SEEING 
Protected Address As PersonAddress 


Protected Class PersonAddress 
BUDE SEEECE AS SEEIRG 
BUSI CEY AS SEFIMG 

ERI CIS 


End Class 


ولأن الفنن > إل ل4”هءءإء تم التصريح عنها باللكلمة المفتاحية 
ect‏ اتا فهي مرئيً بالفعل داخل نطاق الفن” 0١‏ ءإ٠‏ 15۲۶ء وكذلك آي 


فنت مشتقة من هذه الفنت» ولاتقلق من كلم مشتقةفسنتحدث لاحقاعن 


البرمجة كائنية التوجه وتعريف وراثة الكائنات. 
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:Friend ° 

تشير هذه الكلمم المفتاحيم إلى قابلي الوصول للفنىً من خلال الكود سواء 
داخل الفنتً أو خارجها ولكن فقط داخل المشروع الحالي. الفرق بين ۴٣1٠١۵‏ و 
1ط أن الثاني تسمح للكود بالوصول لمكونات الفنت من خارج المشروع نهائيا 
آي من داخل الملفات من النوع ر اا0 . وعلى سبيل المثال فلنفرض جدلا آنك تقوم 
بكتابت تطبيق من النوع 1۲3۲۷ 0٣۲٥١‏ ويحوي داخله العديد من ‌الإجراءات 
والدوال ... الخ فإذا تم تعريف الفنة أو التصريح عنها باستخدام الكلمہ المفتاحي.” 
1 ط۶ فالكود المكتوب داخل الملكتبة ر اال. ) واللكود المكتوب داخل المشروع 
يستطيع الوصول ها هو تحويه هذه الفنَىَ من وسائل ... الخ. أما لو تم التصريح عن الفئن 
باستخدامك للكلمة المفتاحية ۳۲٠٠١۵‏ فلن تستطيع الوصول لأي مما كتب 
داخل الفنة من كود إلا عن طريق الملكتبة ذاتها ر اال. ) ولاتستطيع ذلك إذاقمت 
Protected Friend °‏ : 

تعتبر الكلمة المفتا حي 1٩‏ ٤1ا۴‏ 4ء Protec‏ كمزيج أواتحاد من 
اللكلمتين ءءء ا تع و ”ع۴٣‏ .فالفتمالمصرح عنها باستخدام اللكلمہي 
المفتاحي^ ۴1٠1d‏ 4ء ro] eci‏ قابل ت للوصول إليها من خلال فنة أخرى في 
نفس المشروع وكذلك الفنات المشتقَ” ولكن داخل نفس المشروع. 
:Private °‏ 
تشير هذه الكلمة المفتاحية إلى قابلية الوصول للفنة من خلال الكود ولكن 
داخل نفس وحدة الكود . هذا يعني لو آنه كان لديك متغير مصرح داخل فنن 
باستخدام الكلمم المفتاحيم ٠‏ 2 7 1 2۲ فهي معرفى داخل الفنہ فقط وقس على 
ذلك إذا كان المتغير مصرح داخل ال ع ال10 أو داخل Str u cu ٣٤‏ ... الخ. 
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8 ملاحظن #& 


اذالم تستخدم أي ت كلمات أو عبارات مما سبق ذكرها فإن اللكلمت 


الافتراضية التي يتم إسنادها للمتغير أو ال 0١‏ ...الخ هي الكلمة المفتاحية 


RElENGd 


: Shadows ° 


الكلمم الدليليي »هل د51 تؤدي إلى إخفاء تصريحات بعحض من الكيانات الملصرح 
عنها داخل فئة أخرى وهي الفئة الأب باعتبار أن الفئة الحاليت هي الفئة المشتقت. 
في الود التالي لدينا الفنة ١ءء‏ ر٥‏ 1ط" والتي بداخلهافة أخرى بالاسم 
ce 0‏ ۴ 0 ولدينا كکذلك كائن بالاسم عه 1 0۴۴ وهو عبارة عن نسخ ى من الفني 


01e 0‏ . وفرضا كذ لك آنه لدينا فن أآخرى بالاسم اع و1212 وهي فن 


هه مەجهھ جم 


مشتقفہ من 


الفتم السابق. . وفي الفنم اع له ٣ة‏ ستقوم بتعريف شكل جديد للفنہ الفرعيي 
ce 0‏ 0۴۴ باستخدام الكلمم الدليلي. 0۷5ل ه51 . والكائن الذي يبنستخ من الفتى 


.ManagerOffice pal OfficeInfo 


Employee 


lass 
ass 


MOLLE CIASS OCTICESLNEO 
iE OE eeNuUMDe E AS SEEING 
lic Department As String 


IE Birs lame AS SEE IMG 
lic LastName As String 
lic Office As New Officelnfo 


End Class 


Publ 
Publ 


Publ 
Publ 
Publ 


EES ON 
Ble QI 


ERG CUAaSS 


LL e O LS LN US LE U N E SL O O O O N OE O UE U O LL O OL O U O Oa E O O O A UR UU DE ARÎ 


Employee 


"Second ClaSS 
Public Class Manager 


Nahe IES 


BUDE SHAGOWS Class Ol eel O 
OfficeNumber As String 
Department As String 


taryOfficeNumber As String 


Secar! 


SecrtaryDepartment As String 
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BUDE 
BUDE 


E 
ae 


Publ 
Publ 
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End Class 


Public ManagerOffice As New OfficelInfo 


End Class 

سأختصر عليك قليلا بقولي لك : تابح القسم الخاص ب 51210۷5 لاحقاحيث نتحدث 

عن 00۲ . وللكن هنا حتى ننتهي من هذه النقط سنقول ما يلي ... في الكود التالي سنقوم 
باستخدام الفئتين ٤ر٥1‏ ع٣2۳‏ و إ ع و۸2 12. سنقوم بكتابة الآتي : 


Dim emp As New Employee 
Dim mgr As New Manager 


emp.Office. Department = "KU 600" 
mgr.Office.Department = "MX 775" 
mgr.ManagerOffice.SecrtaryDepartment = "WQ 564" 


فضلا » راجع القسم الخاص ب »كد١5‏ لاحقا في 00۲ في الجزء الآخرمن هذا الكتاب» لأن 
المجالالآن لايسع للحديث عنه. 


: Inheritance + 

الوراثت... لن نتحدث كثيرا عن الوراثة أو الاشتقاق . وللكن من اسمه تستطيع أن تفهمه 
مؤقتا . المهم هنا أن الفنة الموروثت من فن آخرى ترث كل خصائص وأحداث وعناصر هذه الفنت› 
وتسمى الفنت الأصل ر الفنة الأب ككةا٣ ۴۲6١‏ .. أما الفنت المشتقة أو الوارثةتسمى بالابن 
Derd 5‏ . وسنتحدث لاحقا بكل تفصيل عن الوراثت عندما نصل للحديث عن الإرمجة 
الكائني التوجه في منتصف الكتاب بإذن الله. 


Of type_list °‏ : 
من العبارات الجيدة التي قرآتها في صدد ر قائمم النوع اكأا 1۷٥€‏ ) كان ذلك : 
MMe E i 11 EClLEUSS MEKE CLES CENEOCLE‏ 
فهي فعلا تعطي قابليح للتطبيق بإنشاء كائن من الفنة والذي يتعامل مع نوع محدد من 
البيانات. فعلى سبيل المثال فإن الكود التالي به تصريح عن فن بالاسم 1۲٠٠١‏ محددة النوع ‏ والفني 
تحتوي على متغیر بالاسم اء ٥‏ [ ۸0010 وهو من نفس نوع البيانات المحعطی للفئہ. 


USLLGE CIASS TEES(OS CECA EOS) 
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USL ROOEOI ECE AE CECE MOS 


End Class 


لو قرآت التصريح السابق ستعتقد بأن الفنت 1۲٠٠‏ هي متفرع فعلا من شيء ما. إذا نظرنا للمثال 
التالي حيث المتغير ۲٤٠‏ ]_ ر٣‏ بوضعه ڪتفريع من الفنيٰ ٤ع‏ ر٥1‏ م٣‏ مثلا: 


Employee) 


Employee) 


DM My EEE AE TEES (OE 


My EE = New Tree (Of 


My LESS, ROCEOONSCE = NEw EMOLOVESS 


أرجو المعذرة في إبهامي لهذه النقطة . ولكن أخشى الخوض فيها ولكن يمكنك البحث في 
1 حول هذه الكلم” 68۸6۲٣5”‏ ". وقم بالاضطلاع على سمات ك5€ءھا€ ا٣6/6‏ بنفضسك 
إلى أن يوفقني الله تعالى بشرحها أو الحديث عنها. أو مؤقتا اضطلع على الرابط التالي : 


< http://msdn.microsoft.com /en-us/library/w256ka79(VS.80).aspX > 


8# الفرق بين الكائن والفنن 4# 
بعد الحصول على نسخة من الفن ووضع محتوياتها داخل كيان آخر عن طريق جمل التصاريح 
Dim MyOb]j As New Classl‏ 

فهنا يتضح الفرق بين الكائن والفنة على النحو التالي » فهنا الفنت هي المسماة 1ء5ه1٥.‏ أما 
الكائن فالمقصود به الكيان البرمجي الذي قمنا بوضع كاف خصائص الفن بداخله وهو المسمى 
في مثالنا زط0 
B8‏ ملحوظن مهمت 4# 

يعتبراك £1[[. su a1 8a1‏ 1 مكتظ بالفنات . فعلى سبيل المثال تعتبر كل أداة 
موجودة داخل ال ١٤‏ ”دمصت عبارة عن 5sه1٤‏ مستقلت لها أحداثها وخصائصها وطرقها. 
وتعتبر الفنة الأب هي الفنة المسماة .)٥١ ۲٣١1‏ وعند استخدامك لهذه الأدوات فما أنت تعمل إلا 
مع ڪكائنات مشتقة من مصدرها الأساسي . فلو فرضنا آننا لدینا ×0 ۲٥×۲8‏ على ال ۴٠۲۳٣‏ فمريع 
النص هذا عبارة عن كائن مشتق من الفئت المسماة ×0 1١×۲8‏ ويحمل هذا الكائن كافت ما 
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يميزهذه الفنت‌المشتق منها. باختصار وكما يقول البعض ر Visual Basic .NEÊT İS jam-‏ 


„(packed with classes 


18 BYiMr. Ahmed Negm 


المرجع المبسط في البرمجة كائنية التوجه... 00۲ 


¢ Structures اراڪ‎ B8 


يتشابه التركيب الكودي 5۲1/٣1۲٥‏ كثيرا مع الفنات . فلو نظرنا سريعا إلى النص 
LEE LOWES LISE) LWOALELALN lACCOSSIOL L1 EY] [SAEACMOuLSN _‏ 
SLEUEEUES RAMEN (OE EOS HASTE) |‏ 

[Implements interface] 

GEZ ESMERE 


ENS SEEUCEURE 


** ملحوظة : العبارات بين الأقواس [ وكذلك ] هي اختيارية الكتابة ** 
الشيء الوحيد الذي يجب كتابته أوتواجده عند التصريح عن التراكيب هو كلمت" 
ااا "Struc‏ التي تسبق اسم التركيب والمحدد باللون الأزرق في الكود السابق في السطر الثاني 
. وكذلك أيضا العبارة " ٠٣ا‏ اء ناإ†؟S "E1١١‏ المحدد كذلك باللون الأزرق في السطر الأخيرمن 
الكود السابق. كل شيء عدا ما سبق يعتبراختياري . حتى إنك على سبيل المثال يمكنك 
التصريح عن تركيب ما بد ون اللجوء للاختيارات السابقى كما يلي : 


S EEUGEU EE EMCI SE EUC EUR 
Private MyNumber As Integer 
ERE SEEUGEIEE 


ولكن هنا آنت لست بصدد التعامل مع الفنات » فهنا يجب ألا يكون التركيب فارغ من الأكواد 
بعكس الحال مع الفنات . وللكن يجب على الأقل أن يحتوي التركيب على متغير واحد أو... الخ. 
ویجب أن تعلم تماما آن العبارات الاختیارینت‌ وهي ]خattribute_1lis[ [partial] g‏ 
و [ityاaccessibi]‏ و[shadows]‏ وكذلك جمل7تنفيذ أو تطبيق الواجهات 
e5‏ 1 ۳۴ ]1 فهي كما هي في الفئنات كما نناولنها سابقا. 


## من الفروق الواضحة بين الفنات والتراكيب هي : 
٠‏ لاتستطيع الوراثة داخل الترأكيب : 

نعم . لا يمكنك الوراثة أو الاشتقاق من فن أخرى بعكس التعامل مع الفنات ولذلك هنا 

لا يمكنك استخدام الكلمات الدليليت غ Not 1nheritable Yg Must 11 1er i‏ أو حتى 


الكلمة المفتاحي ع ذ ءء۲١٣1‏ وللكن يمكنك تنفيذ أو تطبيق آي واجه 1٤۲۴۵٥۴‏ داخل 
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التركيب ٣1۲١‏ 5(۲۷. وبالنسب. للحديث عن الواجهات فهذا سيتم منافشته تفصيلا فيما ييخص 
ال 00۴P‏ لاحقا. 
٠‏ التركيب من النوع ذات القيمتً ٥م1۷‏ عمuاج۷‏ : 

من الفروق الواضحم جدا بين الفنم والتركيب هو كيفيم تخزين متغيراتهما وملحقاتهما 
داخل الذأاكرة. الفنات من النوع ذات المرجع ر ۲۷65 ع٥١ع۸€8۲‏ ) وهذا يعني أن نسخة مامن 
الفنت ما هي إلا كمؤشر يشير إلى كائن في الذاكرة .N۸۸۷‏ أي آنك إذا آخذت نسخة من فنتَ ما 
فإن 5|٩‏ 83 52ا۷ يقوم بإنشاء مؤشرات أو مراجع تشر إلى كائن ما يسكن أو يقطن فعليا في 
الذاكرة. 

على الجانب الآخر.. يعتبر الترتكيب من النوع ذات القيمت ٤م1۷‏ عد اه/. النسخح المأ خوذة 
من التركيب 1١53١٤٨08‏ تتكون من البيانات أو الحقول المو-جودة بداخل التركيب بدلامن 
الإشارة إليه. انظر للشكل التالي فهي توضح شيئا مما سبق : 
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Cray] 


EEEEEEEEEEHEEEE 


8# المشيدات والمهدمات #4 


سنتعرض سريعا الآن لما يسمى رالمشيدات ك۲ 0أ ل۲۷أSكء١‏ 00 ) وكذلك رالمهدمات 
ئ6 Des)‏ . وأعتذرإن كنت آخرت الحديث حول هاتين النقطتبن ولكن كنت أود أن 
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hlشıدIات Constructors‏ : 
يتضح من الاسم أن ما سنتناوله الآن خاص بتشييد أو بدء أو بناء شيءما. المشيد ماهو 
إلا إجراء فرعي عادي جدا 5100۲0۷١8‏ . ويتم تنفيذ هذا الإجراء بشكل تلقائي عند 
استخدام الكلمة المحجوزة ٠»‏ أثناء التصريح عن أحد الكائنات كنسخة أو ڪمؤشر 

لفنتماكمايلي : 


Dim MyObject As New Classl 


عند استخدامك للكلمت ٠»‏ فهذا يعني أنك تستدعي تنفيذ الدالى 0۲أ) C٤0۸5)‏ 
وهي الدالت التي تعمل تلقائيا مع تشغيل آي نسخة من البرنامج . وعلى ذلك سنذكرالمثال 
الآتي ... إذاقمنا بالتصريح عن الكائن الأتي بالاسم ٩١‏ كنسخ تمن الفنط 
ys ten. Data. q1 Cllent.SqlConnection‏ كمایيلي : 


Dim CN As New System.Data.SqlClient.SqlConnection ("Data Source = MyServer 
; Initial Catalog = MyDatabase ; Persist Security Info = True ; User ID = 
AhmedNegm ; Password = 0020119777244") 


وهذا بدلامن كتابت نفس الكود بالشكل التالي : 


Dim CN As New System.Data.SqlClient.SqLConnection 

ENS CORRE CEN ORS E IRO SS Dae SOUBE = MyServer ; Initial Catalog = 
MyDatabase ; Persist Security Info = True ; User ID = AhmedNegm 
Password = 0020119777244" 


مما يعني ذلك أنك تستطيع تمرير نص جملة الاتصال آثناء تصريحك أو إاسنادك لنسختمن 
الفنة المذكورة للكائن ٨۸×‏ . وهذا يتحكم فيها المشيد K0 ١5۲٣0۲‏ . حيث أن الفني 
المذأكورة بها الإجراء الفرعي [٠7‏ والذي يمكن عن طريقه تمرير نص جملم الاتصال بدلا 
من استخدام الخاصیت ۸81۲119 0 connect:‏ کسطر على حده... سأروي علیك مثالا 
بسيطا عن المشيدات . افترض انك تريد من مستخدم إحدى الفنات التي قمت آنت بصناعتها آنه 
إذا أخذ نسخة من الفنىّ تظهر له رسال كترحيب مثلا أو ما شابه ذلك . فسيكون ذلك كما 

Public Class MyVBClass 


EUS TE SUS NEW) 


MsgBox ("Welcome to .." & vbNewLine & " SMART SOE TS Eo 
SPE tare IMAUSEEY UNS MSSEBOxXSEVLE IRE OEMa ETON) 
ERA Sub 
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End Class‏ 
وكڪذلك يمكنك استخدام المشيد اوالإجراء ءا[ في تمريرمعاملات إلى الفنرًً في بدايي 
أخذ نسخة منها . يبمكنك الاطلاع على المثال الآتي الذي يوضح كيفية استخدام أحثر من 
مشيد وبأاكثر من وظيفة المثال على الرابط التالي : 
http://www.vb4arab.com/vb/uploaded/13807/01252114057.rar>‏ < 


: Destructors alaدakll‎ ° 

إذا كنت قد استوعبت ما تم ذكره في المشيدات . فكن على علم بأننا بصدد عكڪس ما 
سبق وأن ذكرناه . ويتم تنفيذ ما هو داخل المهدم في حال إنهاء استخدامك للكائن ا)٥‏ زط0 › 
ولنفترض آنك مثلا تريد أن تصدر رسال وداع أو إصدار صوت ط٤٠8‏ عند إنهاء استخدام الكائن 
أو ..... الخ. وللكن الوضع يختلف قليلا من حيث كتابة الإجراء المهدم فيكون نصه كالتالي : 


EUGNS Class CASS 


EFOECCESd OuerrEIGdeS SUS Hima lize() 


MsgBox ("GoodBye ... !!" & vbNewLine & "Now !! object was 
terminated.", MsgBoxStyle. Information) 
ERG Sub 
Ena Class 


راف الل المد الى الل السا ده 
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: Structures ; Classes J> ات‎ # 


٠‏ بالرغم من وجود عدة اختلافات بين الفنات والتراكيب إلا آنهما متشابهين كثيرا. فكل 
منهما من الأنواع الحاويح للكائنات والبيانات المتجانسة نوعاما حيث المتغيرات والوسائل 
والأحداث والخصائص التي تخدم مدخل معين. 

٠‏ أحدثكم بسر... غالبا وبنسبة ۹۵ من اللطورين تقريبا۔ إن لم يكن أكثر۔ يستخدمون 
الفنات كئ556ه ا٣‏ وقل من يتعامل مع التراكيب 5۲۷٣11۲۴‏ . ويعتقد بعض المفكرين في 
مجال صناعة وتطويرالبرمجيات أن هذا يرجع للحداثة النسبية التي تتسم بها ال 
Struct rs‏ وكذلك الألفت القويت بين المطورين والفنات 5565| . وكذلك من ضمن 
الأسباب الأخرى هو عدم اتسام التراكيب 51۲۷۳11۲۴5 بالوراثت وما يصاحبها من مميزات. 

٠‏ من ضمن الاختلافات بين ال 2556S‏ ا و ۲65 1 5)٣۷)‏ هو نوع كل منهما كما تم توضيح ذلك 
سابقا على آن الفنات من النوع 1۷65 ٥ع۲٥٤۲۴۸ع؟ع۸R‏ آما التراکیب من النوع 6sم‏ ۲۷ Value‏ 
وهذا بالطبع يعطي جوهرا خاص لڪل منهما. 

٠‏ من ضمن الاختلافات أن الفنات غير إجبارية التشييد . أي آنه لست مجبرا أن تقوم بعمل مشيد 
أو أكثر للفنت وكذلك الحال بالنسبح للمهدم . وكذلك من الممكن إذا قمت بعمل المشيد 
تستطيع جعل كاف المعاملات من النوع الاختياري 101١21‏ ام0 أويمكنك عدم وضع آي 
معاملات من الأساس في الإجراء [٠7‏ وهو بدوره المشيد للفئح. نأتي للتركيب وهو بعكڪس 
ذلك . ولكنه من سماته أنه يسمح بوجود إجراء مشيد وبنفس الطريقَة مثل الفنات تماما 
ولكن الاختلاف يكمن فيما يلي : 

٠‏ يمكنك إضافة المشيدات في الفنات بدون آي معاملات إطلاقا أو أن تحون كل 
المعاملات من النوع الاختياري 10١21‏ 01 كما ذكرنا . بعڪس التراڪيب التي 
يجب عليك عند إضافة مشيد لها أن تضيف معامل واحد على الأقل ومن أي نوع 
ڪان. 

٠‏ وكذلك لا يمكنك إنشاء مشيد بمعاملات اختيارية أي لا تستطيع كتابت إجراء 


Construct e٣‏ لإحدى التراكيب وتكون كافة المعاملات لهذا المشيد من النوع 
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الاختياري 01١21‏ :1 اط0 وللكن يجب على الأقل وجود معامل من النوع الإجباري 
.NotOptional Argument‏ 
أيضا هناك تشابه في استخدام كلمت ١11 K1‏ كما في الفنات. نعم يمكنك ذلك بكڪل 
بساطة آثناء التعامل مع التراكيب 5۲۷٣1۲۴5‏ . دقق النظر في الكود التالي حتى تضح 
الرؤيب: 
Dim SomeOne As New Person With {.FirstName = "Ahmed", .LastName = "Negm"}‏ 
مما سيثير عقلك ‏ أنك بالرغم من قدرتك على إنشاء تركيب ٣)1۲٥۴‏ 5۲۷ بدون استخدام 
الكلمت "٠7‏ . إلا أنك لا تستطيع استخدام كلمت ١١: K1‏ كما في الكود السابق بدون 
استخدامك للكلمة ١<»‏ كما ورد في الكود السابق تماما. 
مما سيثير جنونك هنا .. أن ال ٣أكة6‏ |2 كا۷ دائما يسمح بشكل افتراضي استخدام مشيد 
فارغ المعاملات 0۲ء١٣ Cons‏ ۷أمEmp‏ . وللكنك لا تستطيع فعل ذلك يدويا. أقصد آنك إذا لم 
تقوم بكتابة الإإجراء المشيد للد 5۲۷۲1۲٥‏ فسيقوم ال٤|أكة6‏ اهاءآ/۷ بإنشاء إجراء مشيد 
فارغ المعاملات بشكل تلقائي وغير مرئي . وللكنك كما ذكرنا لن تستطيع إنشاء مشيد 
فارغ المعاملات بشكل يدوي. 
من أوجه الاختلاف كذلك هو أنك لن تجد أثناء تعاملك مع ال 5۲۷٨1۲۴‏ إمكانية إستاد 
قيم للمتغيرات كقيم ابتدائية أو افتراضية آثناء التصريح عنها كما هو الحال في الفنات ... 
انظر في الكود التالي ولاحظ ما كتب باللون الأخضر: 


CLASS 

BUDS Cla SIS EEESOM 
Public FirstName As String = "<Unknown Name>" ‘Initialization value allowed 
Public LastName As String = "<Unknown Name>" ‘Initialization value allowed 


"Empty constructor allowed 


Public Sub New () 
'No Code 
ENA SUD 


'Two-parameters constructor allowed 
EDE SUS MEW EVOL BESE Mame AS SEIN, EVAN Lack MAME AS EG) 


FI ECNEme = First NMEme 
Has EName > Tas Mame 
Haa SUB 


"Optional parameters constructor allowed 
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Public Sub New (Optional ByVal FName As String = "Ahmed", Optional 
ByVal LName As String = "Negm") 

FirstName = FName 

LastName = LName 
End SUD 


ERS CUASS 


'@C@GECCECECCCCCECCECECECECECECECECEECECECECECECEEECECECECECECECECEEEEEEGECE ' 
'@C@CECCECECCCCCCCECECECECECECCECECCECECECECECECECEECECECECECECECEEEEEEEEGECG' 


'SEEUGEUE © 

SEE UGE BEESON 
Public FirstName As String = "<Unknown Name>" ‘Initialization value NOT allowed 
Public LastName As String = "<Unknown Name>" ‘Initialization value NOT allowed 


"Empty constructor NOT allowed 
Public Sub New () 

'No Code 
End Sub 


'"Two-parameters constructor allowed 
Eu Lie SO Ne (EVV BESE Mame AS SEER, BUUSN TaSE Mame AS SEE IG) 


IES LNEMe = Ir Meme 
Tas E NamMeê > las AE 
ERS SUD 


'ODEIOnaAL ParamMeteES CONSEEUEEOE NOT allowed 


Public Sub New (Optional ByVal FName As String = "Ahmed", Optional 
ByVal LName As String = "Negm") 


FirstName = FName 
LastName = LName 
ERAS SUD 


ENS SEEUE URE 


قم بتجربت الكود السابق داخل محرر اللخ 8351٤)‏ اaدءآ۷‏ وانظر بنفسك لمواضع 
الخطأ. والى ماذا سيشير إليك المحرر وماذا سينص عليك. 
٠ه‏ من البديهي أنك إذا فهمت الفرق بين ال كع5كه ا و 5)٣ ٣أ ۷ ۲6١‏ . فعندئذ يمكن فقط 
تحديد متى وأين يمكنك استخدام أي منهما في تطبيقاتك. 
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Object-Oriented Programming 


BEEBE 


عندما نتحدث عن ال 00۲ أو ما يسمى باذ ر «(Object-Oriented Progra 111i‏ 
فهنا نحن بصدد الحديث عل البرمجة الكائنيم التوجهية او ما يسمى بالبرمجم الموجهي 
للكائنات. يتناول هذا الموضوع باذن الله تعالى مميزات وسمات ومبادئ ال 00۲ والكامنةً في 
الثلاث مبادئ الأساسيت كما يلي : 
ılkîillف.. Encapsulation‏ 
° gllرlثi... Inheritance‏ 
ه التعدد أو تعدد الأوج4a... Polymorphis‏ 
هذا بالإضاف لعدة مميزات أو مبادئ أخرى منبثقة من تلك الأساسيح التي سبق وأن ذكرناها أعلاه. 
تعال معي آخي القارئ لنتناول تلك المبادئ الأساسيت وتلك الفرعيح المنبثقت منها كما هو أدناه. 


# (Encapsulation) فيلغتlاl‎ # 


الواجهت العام للفنات 8٩٥۲۴3ع1١1‏ ك'ك5ةا تتكون مما سبق ذكره وهي الخصائص وكذلك 
الطرق والأحداث . وعندما أتحدث عن الواجهم العامة أقصد بذلك الوظائف والأحداث والخصائص 
التي تظهر للمستخدم خارج الفنت. 


Dim CN As New SqlClient.SqlConnection 
CN. Open () 
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لونظرنافي هذين السطرين السابقين فسيتضح مايلي .. أولا الفتةالمسماة 
S1 0n nection‏ عبار ة عن ف7 مشتق. ( فرعي من مكتبة آوفن ”ت كبرى مسماة 
S1 11en‏ . أما عن الكائن ٩C۸‏ فهو كائن يحمل خصائص الفنن 101 C011 ٥٥٤‏ 1و5 فاإذا 
كتبت في محرر آ۴[. ۷/86 اسم الكائن ٩١‏ ثم ضغطت علام ر ستظهر كاف الخصائص 
والطرق الخاصة بالفئت ٥١‏ 1 اء 5٩10٥01١١٥‏ ولكن ستظهر أسماء تلك الخصائص والطرق ولیس 
الأكواد التي كتبت بها تلك الطرق والخصائص. 

تعال نضرب مثال آخر.. في مثالنا السابق عن الفنة المسماة ا٥ت‏ فهناك طريقة أو أجراء بالاسم 
255198 ولكن من الطبيعي لتنفيذ هذه الوظيفة السابق ذكرها أن يكون هناك دالت 
أثناء التنفيذ بأن يقوم البرنامج بفحص مؤهلات أحد الموظفين للقيام بمتابعة تعيين العميل المتقدم 
للوظيفة كي ينفذ الوظيفة الرئيسية وهي التعيين ولتكن مثلا اسم الدالة الفرعية او الثانويت 
ھذە بالاسم u2 11 ie QdEmp 10ye‏ ۴. وفيماسبق قصدت بأن الدالت‌المسماة 
۴n ua 1 ied Employee‏ غير ظاهرة لمستخدم ال C1255‏ لذافهي تم تعريفها أو 
التصريح عنها على آنها خاصم 72٠‏ ذ۲ أماعن‌الإجراء اهت ٣و‏ :كه فتم التصريح عنه 
بالمفتاح > 1 1 طا . طبقا لما سبق فان مستخدم الفئہ هل ستظهر له الطریقہ اہ ل ٣و‏ :وء عند 
التصريح عن كائن كنسخة من الفنت . أما الدالت ee‏ ر0 1م۵۴pء‏ £1 ٣ n0 ua11‏ في 
خاصة بالفئة فقط ولا تظهر للمستخدم الفنت. 

بكل اختصار في حديثنا عن التغخليف أو ال 10١‏ ا12 اsطهء‏ ۸ع . آنت تتحكم فيما 
يظهر لمستخدم الفنة وفيما لا يظهر من خصائص وطرق وأحداث. وما يظهر فهو يؤدي الوظيفة التي 
وجدت من أجلها الفنت ر ه1٥‏ . أماما لا يظهر للمستخدم من أحداث وخصائص وطرق فهو 
یخدم ما يظهر مما سبق. 

يمكنك الاستفادة من مميزات التغليف 0۸ 1 ا12 اءطةء"٣ع‏ بعيداعن الفتات. في العقد 
السابق فبل اعتماد بعض اللغات لمبادئ ال ك٠‏ ا١ء‏ 1ا0-اءء 06b‏ كان المإرمجين يقومون 
بصناعت مكتبات الكود أو تطبيقات معينة وتدعم أيضا التغليف وبنفس المفهوم الحالي ولكن 
كان آنذاك بمعنى آخر. على سبيل المشال : لو لدينا مكتبة تحتوي على وظائف ودوال لعلم 
llillت‏ neTrigonometryلJlaa gî Tangents gl Cosinesgl Sines—lîl‏ 
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Acta ge55‏ ...الخ ولتنفيذ هذه الحسابات يجب أن تحتوي الملكتبة على وظائف ودوال 
مساعدة خفية تساهم في الوصول لنتائج الدوال الأساسيح السابق ذكرها. 


# (Inheritance ر‎ iثlرولا‎ # 


الوراثة ضمن مبادئ ال 00 عبارة عن اشتقاق فن من فن أخرى. وتكون الفنة الجديدة 
امش ر Chi 1d c1ass O Derived Class Or SubClassing‏ تحتويعلى 
كاف خصائص وأحداث وطرق الفنة الأب ‰5 .Parent lı‏ هذا بالإضافہ إلى انك تستطيع 
إضافت آحداث وخصائص ودوال واجراءات جديدة إضافة لما حصلت عليه عن طريق الوراث7تّمن 
الفنت الأب من الخصائص والأحداث والدوال والإجراءات. 

على سبيل المثال : لدينافنة بالاسم ١0١إء‏ ولهذه‌الفنربعض المتغيرات ك 
rst Name , LastName , Age, Address , EMail)‏ ۴ ). ومثلا هتاك وظیفہ اسمھا 
مص0 1a1 Pn‏ وهذه تختص بقيام التطبيق بالاتصال تليفونيا بالشخص وكذلك وظيفة آخرى 
اسمها 1 : 5٠۸1112‏ وهذه تمكن المستخدم من إرسال بريد إالكتروني للشخص. 

إذا أردت إنشاء فن جديدة بالاسم ٤ر٥1‏ م٣2‏ فهنا ستجد آن كل موظف ما هو الاشخص 
عادي لديه الخصائص والوظائف السابق ذڪرھازر , FirstName , LastName , Age‏ 
Address , EMail‏ )و كذلك Dia 1 Phone‏ و Sen Ma11‏ وهنا اذالم تکن تعرف 
للوراثة معنى فستقوم بإنشاء تلك الخصائص أو المتغيرات والوظائف ثاني تمن جديد»› وستضيف 
عليهاطبعا بعض الخصائص التي تخص الموظف مثل )ر , Salary , WorkHOUFS‏ 
NorkAddress , WorkPhone , EmployeelD , OfficeNumber‏ .وتثرS3ı‏ 
كذ لك استخدام الوظيف” ٠٠١١‏ 11 1< وللكن بشكل آخر وبأسلوب أآخر. 

وكذلك ستظل المشكلم قائم إذا أردت عمل فن جديدة بالاسم اهو ه١1‏ . فستحتاج 
كاف الخصائص والوظائف الموجودة في كلت ا الفنتين ١0١إاء۶‏ وكذلك yee‏ 10صEnp‏ 
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وستضيف عليها لاحقا بعض الخصائص والأحداث والوظائف وذلك لان كل مديرما هو الاموظف 


وما ڪل موظف إلا شخص عادي. 


Person 


Employee 


VETE Ej Secartary 


الشكل السابق كان مثالا لمشكلتنا السابق تفصيلها. من مميزات الوراثة والتوريث 
الأساسيت هي إعادة استخدام الكود مرة أخرى دون إنشازه أو حتى إعادة كتابته مرة أخرى. 
ومعنى هذا آنك مثلاعندما ستكون بصدد إنشاء الفنة المسماة 1م٣2‏ ستقوم بإنشاء 
rst Name , LastName , Age , Address , EMail)‏ ۳ ) وكذلك الوظائف والطرق 
السابق ذكرها. وللكن بمجرد أخذ ك قرار الوراثت من الفنت الأب ١۲0ء۶‏ ستحل هذه المشكلت 
بالڪامل. 
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# التوري lقتدرج Inheritance Hierarchies‏ 
إعادة استخدام الكود في التوريث لا يحميك من الخطأ في إعادة كتابة الكود فحسب 
ولكن كذلك يجعل تطوير الفئة أو التطبيق بصفة عام اسهل من ذي قبل. بفرض مثلا أنك تقوم 
بتطوير مجموعم من الفتات كما في الشكل السابق » وبعد انتهانك من الفئات 0١‏ ١١ا۶‏ كفئي 
أساسيت ككةا€) "ar‏ . و ذلك الفنات المشتقü Emp1oyee Jia‏ و gManager‏ 
customer‏ و Secretary‏ كفئنات مشتق” ك55€ها)٤‏ 516 ... أردت أن تضيف الخاصي:” 
خ2 Birt‏ . فلوابتعدت عن مبادئ التوريث التي جاءت بها البرمجة الموجهح للكائنات فستقوم 
باضافت هذه الخاصية إلى كل الفنات السابق ذكرها . آما مع 00۴ ومع ٥٥٤٣هام [n‏ فما عليك 
إلا أن تضيف هذه الخاصي في الفن ٠٣١ ١‏ لأنها الفنح الأب ومن ثم للفنات الأخرى يورثوا 

خواص الفنة الأب وانتهى الموضوع وتم حل المشكلت. 
كمثال آخر . بفرض آنك تريد تعديل أو حذف أحد الخصائص أو الوسائل ولتكن مثلاداخل 
خاصية K2"‏ 5 ذ۴ . فما عليك إلا أن تقوم بتعديل الخاصيح المذكورة في الفنح الأب وهي 


٣اه‏ ولاعليك أن تقوم بالتعديل في كل الفنات التي تحمل نفس الخاصيت. 


#8 معلومت‎ B8 
تدعم بعض اللغات التوريث المتعدد . بمعنى آنه يمكنك في فن مشتق. من أكثر من فنن‎ 
أب. فلنفترض أن هناك فن بالاسم اه٤ وتحتوي على بحعض الخصاتص والوسائل والأحداث الخاصت‎ 
بهذه الفنت » وهناك فن أخرى بالاسم ع 5 ا٥1 ولهذه الفنة أيضا ما يميزها من الخصاتص والأحداث.‎ 
ا۲ہ[ عام )ا فسنحصل على فن أخرى ولتكن بالاسم‎ ٤٥٤ ولو استخدمنا التوريث المتعدد‎ 

.1٥ou se و‎ ٥a۲ ا0ل ویحمل ممیزات کلت الفنتین‎ 0H0 

آنا شخصيا - بعقلي الضيق الفكر_ غير متخيل الفنة الناتجح لأن الفنات الأساسيت غير 
متجانسة . ولكن أ50۴٥۲ 1i)‏ أشفقت علي وجعلت .N۴۲‏ ioئت6‏ اھںuءا۷‏ لایدعم التوريیث 
المتعدد وجعلت الفنة لا تورث من أخرى إلا مرة واحدة فقط. إذا احتجت لاستخدام التوريث المتعدد 
فعليك أن تستخدم الواجهات ع٤۲۵‏ ع٣1‏ . فبدلامن تعريف آأكثرمن كsھا€‏ t٣عا Pa‏ فقم 


بتعريف أو التصريح عن أكثر من ء٥2٤‏ اء ا١1‏ ا١ءإم‏ وعندها يمكنك إنشاء فن مشتق. 
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تنفذ أو تطبق داخلها أكثر من واجهت ء٥2٤‏ إاه 1١۲‏ كما يحلو لك. وللعلم لا تورث الفنة ين 
أكواد من الواجهات ولكن من اسمها ستا خذ فقط واجهت وتضيفها على الفنت. 


88 معلومت آخرى 88 
يمكنك استخدام الكلمات الدليليr NotInheritable dذiڪۍgMust1nher i t‏ 
فالأولى تمنع استنساخ الفنتَ باستخدام عبارة كهذه : 
Dim MyOobject As New Class1 'Not Okay .. because of this class must inherit.‏ 
ودائما تجبر مستخدم الفنم بوراثتها في فئي آخرى > وبذلكيمكنك استخدام اللكود السابق مح 
الفغنةالمشتقة ولتكن مثلا بالاسم ١115:2‏ وليس الفنة‌الأب ٥11551‏ وبذلك يمكن أن 
يكون الكود كما يلي : 
Dim MyObject As New Class2 'Okay .. this is the derived class.‏ 
وبهذا أنت قد تحكمت في الفنت كما تحب ولكن طبعا آنت تتساءل كيف سأصل للوسائل 
ومكونات الفنت من متغيرات وما شابه ‏ وهنا سأجيبك قائلا بأنك تستطيع ذلك كله عن طريق 
الفنت الجديدة أوالمشتقة كsةا)‏ أع۷ام0. 
أما عن الكلمة الدليلية الثانيت K2 1١‏ 1 ا [0K 1 ١1‏ فهي تمنع اشتقاق الفنة داخل فئة أخرى 
باستخدام العبارة : 
E O‏ 
ولكن يمكنك وفتها استنساخ الفنى والتعامل معها بشكل طبيعي جدا. ولكن بعيداكل 
البعد عن مفاهيم الوراثت أو الاشتقاق. 
ويمكنك تحميل المثال الخاص بهذه الجزئية من الرابط التالي » وقم بنفسك بتفحص الأخطاء 
التي ستظهر نتيج الكود المكتوب : 
http://www.vb4arab.com /vb/uploaded/13807/01251733802.rar>‏ < 


وللكن يجب أن تعلم أن † : ه٣‏ ]ا [1s‏ تعمل كعكس للكلمم الدليليت 
Not 1nher table‏ وهذایتضح من وظائفھما ڪما سبق وآن ذڪرذنا. 


32 o BYiMr: Ahmed Negm 


المرجع المبسط في البرمجة كائنية التوجه... 00۲ 


Over r1di ng ö5دايقلا التوريث واعادة‎ # 


إذا قمنا باشتقاق الفنہٰ ٤٥ر٥‏ 1 ع٣2‏ من الفنہ ٥٥۲50۸‏ . فستقوم بإاضافيَ خواص ووساتل 
جديدة للفنة ٠٠ر٥1‏ ع٣۴‏ كما تم الذكر في أول الموضوع . ولكن من ضمن المشاكل التي 
واجهتنا هي آن الوظيف” ١٥١١‏ 1 1 تقوم بالاتصال بالشخص عن طريق المودم وللكن تتصل 
بتليفون المنزل . أما في الفنتَ ٠٠ر٥1‏ ط٣2‏ نحتاج نفس الوظيفة وبنفس إمكانياتها باستثناء رقم 
التليفون . فنحن نريد استبداله بتليفون العمل. لو بعدنا قلیلا عن 00۶ وکذلك ال 0۷٥۲۲4‏ 
فسنقول أن الحل هي إنشاء الوظيفت من جديد . وللكن مع 00۲ فسنستخدم إحدى مميزاتها 
الفرعيت وهي إعادة القيادة للوظائف والوسائل . وللكن من شروط استخدام إعادة القيادة هي أن 
يكون الإجراء الأساسي في الفنة الأب معرف أو مصرح على أنه قابل لإعادة القيادة من مكان آخر. 
فيجب أن يكون الإجراء في الفئح الأب معرف كما يلي : 


"Dial the phone using (Phone) property. 
Public Overridable Sub DialPhone () 


MSGEOx (LBial SS SCE Me. EhonNe) 
'Other Code 
ERG Sub 


وعند الاشتقاق آوالتوريث واقرارتولي القيادة من الفنة المشتق” فسيكون الإجراء معرف أومصرح 


"Dial the phone using (WorkPhone) property. 
Public Overrides Sub DialPhone () 


MsgBox ("Dial : " & Me.WorkPhone) 
OE MEE COC 
Em Sub 


تتيح لك إعادة القيادة استخدام إجراء بنفس الاسم مرة أخرى ولكن تحت أكواد جديدة 
ووظائف من الممكن أن تكون مغايرة تماما للوظيفح المو-جودة في الفنة الأب وللكن بشرط أن 
تكون الوظيف معرفحً في الفنةً الأب على النحو التالي ږؤSu Public Overridable‏ 
ويقصد بها آي ان هذا الاجراء قابل لإعادة تولي القيادة من مكان آخر. ولتولي القيادة من مكان 
آخرفيجب التصريح عن الوظيف. في الفنح المشتقةّ كما يلي Public Overrides Sub‏ 
. وبهذا تكون قد آخفيت هذه الوظيفة في الفنة الأب وأظهرتها من جديد في الفنة المشتقت 
وبشكل جديد وذلك كما رأينا في مثالنا السابق. 
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$8# ملحوظن‎ B8 

كي تعطي أمر بالوراثت من فئة أب فما عليك إلا كتابة‌ما يلي : 

Inner il : EEO 

حيث ٠۲١ 0١‏ هي الفنت الأب المشتق منها خصائصها داخل الفنة المشتقحَ ولتكن كما 
ذكرنا الفنت ٠ر٠‏ 1ط" ... يبمكنك النظر في المشروع التالي لرؤية الأكواد المتعلقة بالوراثت 
وكذلك إعادة القيادة . وللكن عند تحميلك للمثال ستجد به فن بالاسم ۶٠٤0۸١‏ وفنن أخرى 
بالاسم ٤٥ر٥‏ ]1 ط٣۳‏ ونموذج بالاسم ۲٠۲۳1‏ . قم بتعريف كائنات جديدة كنسخم من الفنات 
السابق ذكرها وشاهد مميزات إعادة القيادة وكذلك مميزات الوراثى بنفسك. 

< http://www.vb4arab.com/vb/uploaded/13807/01248952080.rar > 


بما أننا قد ذكرنا إعادة القيادة 0۷8۲۲١۵١9‏ فتعال نذكرشكل آخر من إعادة القيادة وهو 


. Shadow 


# إعادة القيادة والظل sس0لdة؟؟S‏ 


تحت العنوان الجاني السابق ر التوريث واعادة القیادة 0۷0۲۲۵۸9 ) قمنا بطرح مشكل وهي 
إعادة كتابت إجراء بنفس الاسم لكن مع اختلاف الوظيفة التي خلق من أجلها. هنا تظهر مشكلب 
جديدة : ماذا لو آننا لدينا الفنن اء بمافيها للاجراء 10٥‏ 121( ولكنه غير قابل 
لإعادة القيادة من مكان آخر. وكذلك الفنت ١٠ء٠‏ تم تغليفها وجلبها للمشروع في صورة 
٤ا۴‏ اا0 وعندئذ لا يمكن التعديل فيما ورد بها وكذلك الإجراء المسمى (111۶101٥‏ في 
الفنح الأب غير قابل لإعادة تولي القيادة يعني آنه لم یصرح عنه4 Sك™—.Sub Overridab1e‏ 
وبالتالي لا يمكننا إعادة تولي قيادته طبقا لم تم شرحه في العنوان الفرعي السابق ر التوريث واعادة 
القيادة ) . ولكننا في نفس الوقت نريد إعادة تولي القيادة للإجراء ٣۸٥٣٥‏ 111( وتغییر بعض 
خصائصه وعدم إظهار نفس الإجراء في الفنة الأب ... ماذا سنفعل ؟!. باستخدام للكلمة المفتا حيبت 
S5‏ أثناء تصريحك عن الإجراء في الفنة المشتقة بهذا تكون قد فعلت أوقمت بما تقوم به 
verra 1e Su‏ دون أن يكون الإجراء قابل لإعادة تولي القيادة من مكان آخرء 
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فكلمت > هله S1‏ تخفي الإجراء في الفنة الأب وتظهر فقط الإجراء بنفس الاسم في الفنت 
المشتقت. 
B8‏ ملحوظن مهمت #4 

بفرض أن هناك في الفنح الأب متغير نصي بالاسم ر ٠2۳ا‏ 5ء ذ۳ . وفي الفنة المشتقن 
يوجد إجراء فرعي بالاسم ر [2۳٣٥‏ :ع۴1 .. هنا لاتستخدم > ۷٥۸1ء‏ لان هذا سیسبب تعارض 


لان أنواع الكائنات غير متجانس. فهذا متغير وهذه وسيل ٣٥١‏ ا .]1e‏ 


Interface Inheritance تٽاlqجlولا‎ mثارو‎ % 


قد يعترض معي البعض - وقد اعترض احدهم بالفعل - في صياغم هذا العنوان وكيف قد 
هممت بالحدیث عن الواجهات ۲۵٥٩65‏ 6ا1[ تحت بند الوراثة آو التوريث 1١۸6۲۲3۸٤٥۲8‏ . ولکن 
دعونا مما اعتدنا عليه ونترك القضيةَ كاملة للمنطق فنقول ما يلي :"آنا شخصيامع من يقول 
بأآني مخطىئ من جهن واحدة وهي أنه عند استدعاء الواجهت أو تنفيذها داخل الفنة فإننا لانستخدم 
الكلمة كأأ [٣8‏ ولكنك تستخدم كلمت أخرى كما سنعلم لاحقا . وكذلك ييمنع الوراثت 
من أكثر من كائن ولكن في الواجهات يمكن تطبيقها أكثر من مرة داخل الفنت مما يؤيد 
وجه النظر هذه. وعلى الجهح الأخرى . فرآيي الشخصي في هذا الصدد هو آنك فعلا تقوم بوراثت 
التصريحات التي تقوم بالتصريح عنها داخل الواجهم إلى داخل الفن . والكن هنا مسموح بالوراثي 
المتعدد فقط في حال الواجهات. وبحمد الله تعالى قد جاء اللكتاب الذي اتخذته مرجعالي آثناء 
إعداد هذا الكتاب والذي ذكرت عنوانه في مقدمة الكتاب مؤيدا لما اعتقدت فيه ولكن دعونا 
من هذا ونذهب إلى حيث نستفيد. 

تحدثنا سالفا عن اشتقاق او وراثت فن من أخرى وفيها تورث الفئة المشتقةَ كاف خصائص 
ووسائل وأحداث الفن الأب وكذلك أيضا وراثة الكود الملكتوب بالداخل كاملا يمكنك 
Basic . ۴1‏ اİsua‏ من تعريف أو التصريح عن الواجهات . والواجهت ما هي إلا واجهت لفنتما 
واسمها خير دليل على هذا وهي لا تحتوي على أي أكواد للتنفيذ. بعد تصريحك عن واجهن 
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جديدة يمكنل استخدام الكل( ements >1nterfaceName>‏ امnpا‏ وذلك کي 
تشتق أو تستدعي كاف الوسائل والخصائص والأحداث التي تم التصريح عنها داخل الواجهن. 

كي تتضح لديك الرؤيت أكثر من ذلك » اتبع ما يلي ... قم بالتصريح عن هذين المتغيرين 
ڪما هو موضح آدناه : 


Dim CN1 As New System.Data. OleDb.OleDbConnection 


Dim CNZ AS New SVSEEM. Dalo. cqlClienE.SGICoNNECEIDOD 

العجيب في هذين التصريحين أنك إذا نظرت في الوسائل والخصائص المصاحبة للكائن °١1‏ 
ستجدها بنفس الترتيب ونفس الهجاء بالنسبة للكائن 012 . وللكن مع اختلاف الوظيفة ... يعني 
مثلا الوظيفة 0١‏ فهي مصاحبة لكلا الكائنين ولكنها مع ٩۸×1‏ تتصل بأي قاعدة بيانات 
حسب جملم الاتصال الممررة إليها و”ذإاS؟ on‏ 1اecمconn.أمامعالكائن‏ 0×2 فهي لا 
تتعامل إلا مع محركات قواعد بيانات ءا إءS‏ 591 15 فقط بالرغم من أن اسم الوظيفت واحد 
في كلا الكائنين ... هنا يتضح معنى الواجهات. 

سأوضح لك مرة أخرى وبمثالآخر.. بفرض أنك مديرمشروع برمجي معين وليكن هذا 
المشروع خاص بصناعة مكتبة اا0 للتعامل مع ملفات 0۴۴1٣۴‏ 15 . وقد قررت كمدير 
مشروع أن تقوم بعمل أربعة فنات ع155 4 .الأولى منهم ل ل۷0۲ 15 والثانيتل MS‏ 
Access‏ والثالثت MNS PowerPoin†d‏ والرابعت د اع٤×٤‏ 15 . وتم الاتفاق على عدة وظائف مثلا 
ڪالاتي : 
Method >> OpenFlile. ®‏ 
Method >> DeleteFile‏ 
Property >> FileName ®‏ 
Method >> FileSize‏ 

وهذافقط كان على سبيل المثشال.. تعال معي نرجع سويا إلى موضوعنا الأساسي » أنت 
كمديرمشروع كما ذكرذنا سالفا أنك تريد تواجد هذه الخصائص والوسائل في كل فنتّمن 
الأربعة فتات المرجو إنشائها. هل الحل آنك تقوم بالنسخ واللصق ومن ثم تغيير الأكواد ‏ آم الإملاء 
على المطورين ومن ثم تجد الأخطاء ١‏ ... هنا سنلجاً إلى استخدام الواجهات فهي من ستحل الموضوع. 
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من القائمہ ا٤٥۴۲‏ اختر العنصر Add Compo” €ْN†‏ ثماختر العنصر ۲8٥٤۲۴۵ع)۸]‏ ڪكماهو 
موضح بالصورة أدناه : 


Adıl Hew Item - OIF? 


_akegorlas! laTplakez: 


SI mum T Film yYısual stuıdıo ınstalled templates | 
لے‎ 1 
Data j Pkaa2se lit Ta* E] ABLE Bo: 
=r 5ا ل دا[‎ Dram ا‎ 
cb “r adc Fle e COM Chas | E 
Win darys Forms rE] omponent Zla35 EF] istorr ontral ا‎ 
Haporzirg li Pkazet EE | 4 
orkEF oy ا‎ Exolurer Fur e lılerl at ضا‎ 
WPF 3| 3 ripıl File 3 2 lane, | . 

| Jj Ioral rarahaaa A Inral Garahae rar he | 
EI Laair Farm [A ]MDI Farent Form 

ê] edule a] epert 

J| Lepert Wezard ag Heecur zaz File 

7 Se’wize-bassc Caktatasea =| 5pash 5z’a3an 


|Z] Text Fic lH] z2r Zontrol Mr. Ahmed Ncqm 


An cnpky inszerFace def nizion 


Hares: MyIrtcrfFacc, Yb 


قد قمت بالتصريح عن الوسائل والخصائص السالف ذكرها في الواجهتَ كما يلي ... ولا زلت آأكرر 
آننا لاانكتب أي أكواد داخل الواجه” . فقط نقوم بالتعريف والتصريح عن مكونات الفن ت كما 


Public Interface MyInterface 


"This subroutine to open the file by using [FileName] property value 
Sub OpenFile () 


"USe ERIS PEOPEEEY EO SPeclEy Eile PERN OE Eead ENe Ele Path EO OBEN TE 
or delete it 
Property FileName () As String 
"This subroutine to delete the file by using [FileName] property value 
Sub DeleteFile () 


"This function used to return the file size by using [FileName] property 
value 
Function FileSize() As Double 


End Interface 
آنا فقط قمت بعمل مثال عابر ومبسط . فيمكنك عزيزي القارئ أن تقوم بالتصريح عما تحب‎ 


وكيف تحب ومتي تحب ... قم بالتصريح مثلا عن متغيرات عاديت وأحداث ووسائل وخصائص .ما 
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آنا لضيق الوقت أردت إيصال الفكرة فقط. أنا متشوةق بالفعل حتى أريك كيف يتم وراثت هذه 
الواجهح داخل الفنات التي قمنا بإنشائها سابقا . فكل ما عليك إلا الدخول داخل كل فن وتكتب 
هذه العبارة : 


Implements MyInterface 


ستجد نفسك في الفنة مثلا الخاصة بال اع٤×٤‏ ۷15 قد حصلت على النتيجة التالية كوراثة 


مھ مھ »م 


حقيقيم لا تم التصريح عنه في الواجھيٰ :My1۸ t٥۲ ۴2٥٤‏ 


EUOINE CISSS Exeel 
Implements MyInterface 


Public Sub DeleteFile() Implements MyInterface.DeleteFile 


ERI SUD 


Public Property FileName () As String Implements MyInterface.FileNam 
CEE 


End Get 
Set (ByVal value As String) 


End Set 
End Property 


Public Function FileSize() As Double Implements MyInterface.EFileSiz 


NEL UME E LOM 
Public Sub OpenFile () Implements MyInterface.OpenFil 


ERI SUD 
End Class 


هذه هي بالفعل شكل الفن بعد وراثہٰ الواجهى وما عليك الاتوزيع الهيكل العام لهذه الملكتب.ن 
اا0 على المطورين في المشروع وهم يقوموا بكتابة الكود فقط داخل الوسائل والخصائص 
والأحداث الملصرح عنها ... يممكنك تحميل المشروع من الرابط التالي : 

< http://www.vb4arab.com/vb/uploaded/13807/01250864124.rar > 


#4 rظوحلم‎ B8 
ة6 |ع آ۷ لا يسمح لك بالوراثت من أكثر من فنيء‎ .N۴٤ ۲ ڪما ذڪكرنا سابقا آن‎ 


ولكن داخل الفنت الواحدة يمكنك وراثت أكثر من واجهن .1)€٥ ۲۵٥€‏ 
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Access Modifiers raz laفkl‎ aتlnلڪا‎ ¥ 


ه cc‏ 11ط : يجعل المتغير أو الوسيلة معرف على مستوى الفن ت ككل وكذلك على 
مستوى المشروع باللكامل . كما يمكنك الحصول على هذا المتغير أو هذه الوسيلة إذا قمت بآخذ 
نسخة ع٥"‏ ةأئم[ من الفنة في آي مكان آخ_رعلى اختلاف نوع المشاريع سواء 
WindowsApplications‏ أو ass ibrary‏ ... الخ. كما أن هذاالمتغير أو الوسيت من النوع 
>¡ 1طا۶ تظهر في حالات الوارثت في الفنات المشتقي. 

۴٠۸۵ ۰‏ : يجعل الإجراء معرف على مستوى الفنتَ ككل وداخل المشروع الحالي بصفت 
عام . لكن اذا تم دمج الفئىَ في ملف 011 وأخذ نسخة لكائن من الفنت فإن الاجراءات من هذا 
النوع لا تظهر. 

Pate *‏ : يجعل الإجراء معرف على مستوى على الفنً فقط . ولا يظهر في آي مكان 
خارجها. 

Protected‏ : يشبه ال 72٠‏ ۲1 تماما وللكن يختلف عنه في نقطة . ألا وهي آنه في 
حالت التوريث فإن الفنة المشتق” ككدا) ٥١‏ ۷آ۲ 06 يظهر بداخله الإجراءات والمتغيرات من النوع 
eاc rote‏ . ولكن إذا أخذت نسخة من الفنت الأب 255 ا٣‏ 825€ أومايسمى باd— Parent‏ 


5 فلن تظهر المتغيرات ولا الإجراءات من النوع ا٥٠‏ ٤اه٥إ.‏ 
يمكنك مراجعة المثال التالي » فهو عبارة عن فن بالاسم ر 1۷٣1355‏ ) وبها بعض الإجراءات 


باختلاف الكلمات المفتا حي لكل منها: 
http://www.vb4arab.com/vb/uploaded/13807/31250864124.rar >‏ < 
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# تعدد الواجاٽ ر (Polymorphism‏ # 


من أجمل ما قرأت عن التعدد أو تعدد الواجهات أو ال "5 1 ٣طإاه‏ "ر ۶٥1‏ كان ذلك في كتاب 
ر 2008 Basic‏ اVisua‏ لكاتبه 1815 ۸0١ Step‏ كان الآتي بالنص : 
Roughly speaking, polymorphism means treating one object as‏ 


anoOlLRHEE. UM COE EES, 1C Meals CME YOU CAN EEEQAE aM COICCE Of 


One Class 4S 1f lt were from da parent class. 


فعلا هكذا. أثناء تعرضك للتعدد أو الد 5۳٣م‏ 0۲ "۷ا۴0 فأنت يمكنك معاملة الكائن كما لو 
كان كائن آخر.. على سبيل المثال فلنفترض افتراضاتنا السابقة وهي أنه لدينا الفتتة المسماة 
Emp 10ye‏ وكذلك الفنَ ٥٣٥١‏ اكا وهما مشتقان من الفنة الأب المسماة ١0ءإء.‏ من 
هنا يمكنك معاملم الكائنات المصاحبہ للفنتين ٤ء‏ ر 1٥‏ م٣٤‏ وكذلك إع”٣‏ تا ں٤‏ كمالو 
انك تتعامل مح كائنات الفنة الأب 2٠۲50١‏ وذلك لأنهم بكل بساطة للفنة الأب وليس الابن 
كما يظهر لك. يعني هذا انك ظاهريا تتعامل مع الفنات »0ا cus‏ و emp1oyee‏ ولكن 
تستخدم هاتين الفنتين كجسر من خلاله تتعامل في الباطن مح كائنات الفنت الأب ١0١ءإء.‏ 

يمكنك ال ۲ ۴.. ءأئة6 | اكألا من تعيين أو تخصيص قيمت من فن مشتقة إلى متغير في 
الفنت الأب. في المثال التالي يمكنك أن تضع كائني ٠ر٥1‏ م٣2‏ أو إع٣‏ هاون في متغير من 
الفنة الأب ... اتبع الكود ثم تابع رباط المشروع في الأسفل : 


Dim emp As New Employee "Create an Employee. 

Dim cst As New Customer 'Create a Customer. 

Dim per As Person "Declare a Person variable. 

per = emp 'Ok .. An Employee is a Person. 

per = cst Ok SRS CuSEOmMer 1S 4 FESO 

emp = per 'Not Ok .. A Person is not necessarily an Employee. 


يمكنك تحميل المشروع من الرابط التالي : 
http://www.vb4arab.com/vb/uploaded/13807/11250864124.rar >‏ < 
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$8# ملحوظن‎ B8 

يمكنك الوصول للمعالم أو المكونات المعرفت الخاصة بنوع المتغير الذي تستخدمه للإشارة 
إلى كائن آخر. هذا يعني آنك مثلا لو لديك متغير من النوع ١۲0ء2‏ يشير إلى كائن من النوع 
En] 0y ee‏ فإنك فقط تستطيع الاستفادة من معالم الفني 2١٤5 0١‏ وليس لك الحق في الاستفادة 
مما تم إضافته علی الفنہٰ ٤ر٥‏ !1 م٣‏ بعد الوراثہ. 


# تعدد أو إعادة التعريف Overloading‏ 


ماذالوأنك قمت بتصميم فن 355| وأردت عمل إجراء فرعي 515۲01۸8 بالاسم 

: وهذاالإجراء الفرعي يحتوي على الباراميترات أوالمعاملات الآتيب‎ . ner tP erson Daa 

FirstName 

LastName 

Age ® 

Address ® 

EMail “® 

MobileNumber ®‏ 
الان ڊ Not Optional ”aرlبجإلl تIںlمlعkl jn ila (FirstName , LastName‏ 
Parameter‏ . آما عن بقية المعاملات فهي اختيارية حسب المتوفرلدى مستخدم الإجراء 
1nsert Person Data‏ .ولو تخليتناعن مبدأال 9¬ d1‏ 02ا 0e‏ ضمنمبادئ ال 00° 
فسيكون شكل الإجراء الفرعي كالآتي : 


Public Sub InsertPersonData (ByVal FirstName As String, ByVal LastName As 
SEEING, OPEIOnNal ByMal Ae AS ImtegeE >. 20, OpElonal BVVUal AddEFeSS AS SEEING 
<> ST OBES BYVAL EMI RS SEEING >. CS OBERT BYVAL MOOSA LeNUMOSE AS 
SEIR > N) 
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فقد قمنا في الإجراء السابق بجعل بقية الاختيارات من النوع 10١21‏ ا ع0 ولكن للأسف وبكڪل 
أسف ستجد أن المعاملات من النوع 101١21‏ ام0 يجب أن تحتوي على قيم مبدئية وهذا نصا 
للاعتراض الذي يصدره ال ..٤١‏ اه6 اهنءآ۷ بالنص الآتي : 


Optional parameters must specify a default value 


ولو طبقنا هذا الاعتراض في مثالنا الحالي فسنجد مثلا أننا قمنا بتعريف المتغير 29٠‏ على آنه متغير 
رقمي من النوع 1١۲٠9٠‏ ونوعه اختياري 1 10١2‏ اط0 وقيمته الافتراضية .۲١-‏ وهذا يعني آن 
المستخدم لهذا الإجراء لن يستطيع الاستفادة من هذا الإجراء لأنه لولم يقوم بإدخال عمرالشخص 
فان البرنامج يقوم بشكل افتراضي بوضع القيمة ۲١‏ في حقل العمرفي حين أن المستخدم للإجراء لا 
يعرف أولم يتوفر لديه أي بيانات عن عمر الشخص. 

أعتذر لو استطردت كثيرا في وصف المشكلة . ولكن هنا يأتي دور ال 0۷6۲|٠۵ ٣9‏ . فهل 
تعلم أن ال .N۴1‏ ›أsةB‏ اعناءا۷ا يعطيك إمكانيح تكرار أو إنشاء أكثر من وسيل ۸0× 
بنفس الاسم وللكن بشرط اختلاف المعاملات. أي أنك من الممكن مثلا أن تقوم بإنشاء الإجراء السابق 
المسمى 222 rt Person"‏ ع ns‏ أكثرمن مرة وبنفس الاسم وللكن يختلف في المعاملات 
الممررة إليه. بالطبح آثناء استخدامك للغات ال .۴١‏ لاحظت الآتي : 


Mr. Ahmed Negqm 


E1 of 12 ¥ f Input (FileNumber As Integer, ByRef Yale As Dbject) 
FileNumber: 
Required, Any Yalid File number, 


إذا نظرت إلى ما يشير إليه السهم في الصورة السابقت ستجد الرمزالآتي 12 0 1 وهذايعني 
بكل بساطة أن الإجراء أو الوسيلة المسماة اط1 موجودة داخل ال )0۲ .N£E۲ ۴a eW‏ اثنتي 
عشرة مرة وللكن مع اختلاف المد خلات أو المعاملات وهذا تطبيق حي لد ١9‏ iل0۷۵۲۱03.‏ 

تعال معي نضرب مثلا آخر .. الفنة المسماة ١‏ ١ا٠۶‏ يظهر فيها إجراءان كاإجراءات مشيدة 
للفئت €5 Constructor Subr oui‏ بالاسم س ءN.‏ الإجراء المشيد الأول لا يأآخذ أي معاملات بينما 


الإجراء المشيد الثاني يأخذ المعاملان المتغيران ر 2"٠‏ كما , م Na‏ ءا ۴ ) كقيم افتراضيت 
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آثناء آخذ نسخة 1153١٥8‏ من الفنت. وسيكون شكل الفنت ۲8۲50١‏ بعد كتابة الكود كما 
يلي : 


BUGIS CG SS EPEESON 


EU E EES ENaMe AS SEE IMO 
BUI Te KastEName AS SEEING 


Public Sub New () 


FirstName "<fname>" 
FirstName "<]name>" 
ERI SUS 


POLIS CUS NEWNESS Earl NEMEe 4S Siri nEy, ENVUaAl 1ES Nemes AS Cine) 


Wı ESLNEME = Tir NEMS 
Lag Name = last Nemes 
Cl SS 
eel CIISS 


واذا ذهبت للنموذج وقمت بأخذ نسخة من هذه الفنة سيظهر لديك الشكل التالي : 


Dim x A35 New Persgn 


Mr. Ahmed Negqm : 


وهنا تضح فائدة ال ٣9‏ 2٥ا٣‏ ع0۷ فبدلا من استخدام المعاملات الاختياريت أة١هاtمO‏ 
arame‏ وكذلك حالات الشرط 5١٥0|†أل‏ ۳0 1۴ . فنلجاً حينئذ لمثل هذه الطرق والتي تحل 
مشاكل كثيرة. وفيما يلي مثال صغير عن أآخذ نسختين واسنادهما للكائنات 1_ 0۸١١٣ء۶‏ 
وكذلك 2 ۶٠۲:01١‏ كما يلي : 


Daim. ESO L1 AS NE FESO 
Dam ESO 2 AS MON EELSON (AMEE, FNS) 


يمكنك تحميل المثال من الرابط التالي : 
http://www.vb4arab.com/vb/uploaded/13807/21250864124.rar >‏ < 


ولكن هل جاء بذهنك أخي القارئ ما هي ميكانيكية تحديد الإجراء. يعني مثلا آنه 
لدينا ثلاث إجراءات بالاسم 1٠‏ وبالطبع كما ذكرنا أن لكل منهما معاملاته الخاصة التي 
تختلف عن المعاملات الخاصة بنظائره . فكيف آقوم بتحديد التعامل مع الأول أو الثاني آو الثالث ... 
الخ. هنا يقوم ال .۴١‏ ءأكة8 أهداءآ/۷ بتحديد الإجراء حسب نوعية وعدد الإجراءات الممررة إليه 
وليس عليك أيت التزامات تجاه هذه الجزئيت. 
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# السؤال هنا : ما هي الحالات التي يتحقق فيها ال 0۷6۲1021۸9 ؟؟؟.. 
٠‏ اختلاف عدد المتغيرات أو المعاملات ١8۲أع"۳‏ ۴2۲2 في كل وسيلت 10١‏ اعM×.‏ 
٠‏ اختلاف نوع المتغيرات أو المعاملات ١8۲أ۳"6‏ ه۲ . يعني مثلا المتغير من النوع €٣‏ 9ع†ہ1 
یصبح S]۲ ٣9‏ وهذا على سبيل المثال. 
٠‏ اختلاف ترتيب المتغيرات أو المعاملات ١١۲٤ع"‏ ه۲ج۴P‏ الممررة إلى الوسيلت ۸0١‏ †ع™. 


# آخشى أن تجلس وحيدا تجرب ما سبق وأن ذكرته . وتجد بعض الأخطاء... لذا سأوضح لك 
معوقات | Overloading‏ : 
٠‏ تغييرك لنوع إسناد المتغيرات آوالمعاملات داخل ال |10١4‏ . ونوع‌الإسناد هنا أقصد به 
اللكلمات الدليليت 8۷21 وكذلك ۴٠۸ر‏ . وهذا مع إبقاء المعاملات كما هي بنفس 
أنواعها وترتيبها .. انظر للكود التالي : 


Public Function MySum (ByRef FirstNumber As Double, ByRef SecondNumber 
As Double) As Double 

Dim x As Double 

x = FirstNumber + SecondNumber 

Return x 
ERS EUNGET OM 


Public Function MySum (ByVal FirstNumber As Double, ByVal SecondNumber 

As Double) As Double 
Dim x As Double 
x = FirstNumber + SecondNumber 
Return x 

EROS EUnRe Eon 


ونص الخطاً يقول أن الدالتين لا بمكن تطبيق مبدأ إعادة التحميل 0۷8۲۱0۵١1١9‏ وذلك 
بسبب اختلافهما في طريقة إسناد المعاملات 


٠‏ يعتقدالبعض أنه عند تغييراسمالمعامل Pa rهmصمعاع١'ك N3۳0۴‏ . فهذايحقق ال 
14 وللكن لتصحيح الوضع يجب تغيير نوع المعامل أوالمتغير ك'٣عأعمصaاP۴a‏ 
عم .. إليك الكود التالي . انسخه بالمحرر وانظر إلى نص الخطأ : 


Public Sub TestMsg (ByVal strMessage As String) 
MsgBox (strMessage) 
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Public Sub TestMsg (ByVal 1intMessage As String) 
MsgBox (intMessage) 
ERG Sub 


٠‏ قد يعتقد البعض كحل جذري للحالت رقم ر٠‏ والسابق ذكرها أنه إذا قام بتغيير محدد 
الوصول ۷اآاİأSكA))6‏ مع بقاء ثبات الأنواع للمعاملات.فهمذاقديحقق ال 
14 ... هل تعتقد ذلك ؟. المفاجأة في الجواب هي ر( لا) . نعم لن يتحقق ال 
14 بمجرد تغییر محدد الوصول مثل ٥ذ‏ 1طں و ٥خ‏ ھ1۷٤٥‏ ...الخ مع ثبات 
أنواع المعاملات كما هي .. انسخ الكود التالي لمحرر ٣٤أك83‏ اهاكأ۷ وانظر لما سيقوله لك 
المحررفهو لن يقبل ذلك أبدا: 


Public Sub TestMsg (ByVal strMessage As String) 
MSGEOx (SE EMeS Sadê) 
ERG SUD 


Private Sub TestMsg (ByVal intMessage As String) 
MsgBox (intMessage) 
ERG SUS 


ولكن عليك لتحقيق ال 9 0۷8۲|0۵ في هذه الحالت وقد وجب عليك تغيير محدد 


الوصول . يجب تغيير نوع المعاملات 1۷8 5١عاع"۳ه۲ه۴‏ ... فيصبح اللكود بالشكل 
الصحيح على النحو التالي : 


Public Sub TestMsg (ByVal strMessage As String) 
MsgBox (strMessage) 
ERG SUS 


Private Sub TestMsg (ByVal intMessage As Integer) 
MsgBox (intMessage) 
ERG SUS 
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#48 ملحوظت مهمت جدا‎ B8 

عند استخدامك للدوال آو ما یسمی بال 0۸5 )۲٣ا۴۳‏ . فيكون نفس ما تمرسنا عليه في 
الإجراءات مع ال 9 0۷6۲|03 هو نفسه مع ال15 0 ۴٣٣)‏ . إلا آنه يوجد جزئيت هامتً يجب 
التنويه عنها. 
من البديهي أن يدور بذهن أحدكم فيما يخص ال5١ ٣)|0‏ ٣١ا۴‏ آنه إذاتم تغيير نوع الدالت آوما 
يسمى بال 1۷€ ۸1۲١‏ فهذا يحقق ال 0۷6۲10۵1١9‏ ... (!! . وهنا سأصدمك بلا شك وأقول لك 


لن يحدث هذاء فتحقيق اد 0۷8۲١0۵۵1١9‏ مع الدوال لا يأتي بتغيير نوع الدالت فقط . ولكن لابد 


مه مجه ي 


تحقق شرط آخر وهو اختلاف المعاملات. انسخ الكود التالي في محرر ..٤‏ ئ82 اا۷ واقراً 
نص الاعاراض بضك؛ 


Function MySum (ByVal FirstNumber As Double, ByVal SecondNumber As Double) As 
Double 

Dim x As Double 

x = FirstNumber + SecondNumber 

ROUTE & 
End EUnNCTioN 
Function MySum (ByVal FirstNumber As Double, ByVal SecondNumber As Double) As 
TIRLEIEE 

Dim x As Integer 

x = FirstNumber + SecondNumber 

REEUEE & 


EI BHUnECTION 


وكي لا أرهقك في القراءة من المحرر فنص الخطأ يفيد الآتي : "لا يمكن أن تتعدد الدالت أو لا 
يمكن إعادة تعريفها 01€۲ cannot overloaded e21‏ وذلك لاختلافهم فقط في النوع 


٣م۷٣ Return‏ . أما إذا أردت تصحيح الأوضاع فإليك الكود الصحیح : 


Function MySum (ByVal FirstNumber As Double, ByVal SecondNumber As Double) As 
Double 


Dim x As Double 
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x = FirstNumber + SecondNumber 


Return x 


ERN EUnCtIOM 
Function MySum (ByVal FirstNumber As Integer, ByVal SecondNumber As Integer) 
RAE IMEEGE 

Dim x As Integer 

x = FirstNumber + SecondNumber 


Return x 


ENG EURCEIGOD 


88 تم إضافت الدالت المسماة 1۷50 إلى المثال 00۲4 السابق 84 


#4 ملحوظت أآخریى‎ B8 
وذلك‎ ٥v ءءإ1٥هفلك استخدام الكلمة الدليليت‎ . 0۷8۲۱0۵01١9 يستحسن أثناء تطبيق ال‎ 


لتسريع عمل المترجم 001۵۲ ... فيكون كالاآتي : 


Public Overloads Sub TestMsg (ByVal strMessage As String) 


MSE BOX (S EE MESSAGE) 


End Sub 


Public Overloads Sub TestMsg (ByVal intMessage As Integer) 


MsgBox (intMessage) 


e‏ ا 


٤ 
ا‎ 
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المرجع المبسنط في الإرمجى كائنيم التوجه ... OOP‏ 
e‏ 


إلى هنا أكون قد وصلت إلى جولتي القصيرة مع 00 . راجيامن الله تعالى۔ أن 


آڪون قد وفقت في زيادة معرفم القارئ عن 00۶ ولو بشيء يسير .. 


أكرر مرة أخرى ... إذا تكرمت أخي ووجدت أخطاء فنية في الأكواد أو الروابط 
المباشرة أو الأمثلة المرفقة أو حتى أخطاء إملائيت . فلا تتردد وراسلني كي نخرج هذا المرجع 
بأحسن صورة. تابعونا على منتديات أكاديمي. فيجوال بيسك للعرب على الرابط 
صa4.coطv. www‏ أومنتشديات فیجوال بیسلك للعرب على الرابط 
www .Yb 4arab .com‏ وستجدون دوما ما تطلبونه وتسعون للحصول عليه آثناء 


مرحلتكم التعليميت بلغات ءiوو8‏ اوسuءذ۷ 18S‏ ولغات آخرى. 
وانتظرونا في المرجع الشامل للبرمجة كائنية التوجه 00۶ في القريب بإذن الله تعالى 


سبحان الله عدد خلقه ورضا نفسه وزنت عرشه ومداد كلماته ... وصلى الله وسلم وبارك 
على سيد الخلق كلهم سيدنا محمد صلى الله عليه وسلم صلاة دائمت إلى يوم الدين 


تحياتي 
$ احمد نجم $ 
AhmedNegm@windowslive.com‏ 


002 011 977 72 44 - 002 012 944 79 49 
EGYPT 
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